home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / MORSE CODE WRITER.int < prev    next >
Text File  |  2023-02-26  |  1KB  |  45 lines
  1. 10 PRINT "";""
  2. 50 REM  MORSE CODE WRITER PROGRAM
  3. 51 REM  WORKS WITH MORSE CODE
  4. 52 REM  READER AND MORSE CODE
  5. 53 REM  EXEC WRITER PROGRAM
  6. 54 REM  WHICH MUST RESIDE ON
  7. 55 REM  SAME DISC!
  8. 60 REM 
  9. 61 REM 
  10. 62 REM  WHEN ENTERING THIS PROGRAM
  11. 63 REM  FROM KEYBOARD INSERT A
  12. 64 REM  'CONTROL D' AFTER FIRST
  13. 65 REM  QUOTATION MARK IN FOLLOW-
  14. 66 REM  ING LINES:
  15. 67 REM 
  16. 68 REM  85, 120, 121,
  17. 69 REM  122, 123, 190.
  18. 70 REM 
  19. 85 PRINT "<CTRL-D>NOMON C,I,O"
  20. 90 COUNTER=1:REM  INITIALIZE CHARACTER COUNTER
  21. 100 DIM HEAP$(255):REM  LETTER STRING
  22. 110 HEAP$="1234567890QWERTYUIOPASDFGHJKLZXCVBNM,./?;:-'(""
  23. 115 INPUT SPEED
  24. 120 PRINT "<CTRL-D>OPEN CODE DATA"
  25. 121 PRINT "<CTRL-D>DELETE CODE DATA"
  26. 122 PRINT "<CTRL-D>OPEN CODE DATA"
  27. 123 PRINT "<CTRL-D>WRITE CODE DATA"
  28. 127 PRINT SPEED
  29. 130 LENGTH=5
  30. 150 IF COUNTER+LENGTH+1<40 THEN GOTO 200
  31. 165 LINE=LINE+1
  32. 170 COUNTER=1:REM  RESET CHARACTER COUNTER
  33. 180 PRINT 
  34. 185 IF LINE<10 THEN 200
  35. 190 PRINT "<CTRL-D>CLOSE CODE DATA"
  36. 195 END 
  37. 200 FOR WRD=1 TO LENGTH
  38. 210 LTR= RND ( LEN(HEAP$))+1
  39. 230 PRINT HEAP$(LTR,LTR);
  40. 240 COUNTER=COUNTER+1:REM  INCREMENT CHARACTER COUNTER
  41. 250 NEXT WRD
  42. 270 PRINT " ";
  43. 280 COUNTER=COUNTER+1:REM  INCREMENT CHARACTER COUNTER
  44. 300 GOTO 130
  45.